-- card: 4698 from stack: in.3
-- bmap block id: 0
-- flags: 4000
-- background id: 2663
-- name: Super Delete


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=281 top=24 right=61 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on copyright

  -- Super Delete, Copyright by Mac Help Co., January 1988
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, (213) 428-7414
  --      The script for this button is copyrighted and may not be
  --      used without the written permission of the author (above).

end copyright


on mouseUp
  Global SearchTimesFound, Searchstring, TrapFieldName

  Answer "What cards do you wish to delete?" with "Flagged" or "This Card" or "Other"
  if it is "Other" then
    Answer "What cards do you wish to delete?" with "Duplicates" or "Range" or "Cancel"
  end if

  if it is "Cancel" then exit mouseUp

  if it is "This Card" then
    answer "Are you sure you want to delete this card" with "Cancel" or "Delete"
    if it is "Cancel" then exit mouseUp
    visual effect iris close to black
    go to this card
    doMenu "Delete Card"
  end if

  if it is "Range" then
    ask "Enter the number of the card you wish to start with?" with "2"
    if it is empty then exit mouseUp
    put it into StartCard
    go to card startCard
    ask "Enter the number of the card you wish to end with?" with the number of cards
    if it is empty then exit mouseUp
    put it into endCard

    set cursor to 4
    set lockscreen to true
    repeat with i = startCard to endCard
      doMenu "Delete Card"
    end repeat
  end if

  if it is "Flagged" then
    -- CLICK ON THE SUPER FIND BUTTON
    put "All Cards meeting this criteria will be deleted!" into SearchString
    click at the loc of background button "SuperFind: Version 1.1"
    put empty into SearchString
    set cursor to 4
    repeat forever
      if SearchTimesFound is 0 then
        exit repeat
      else
        put the id of this card into ThisID
        put last word of ThisID into ThisID
        if ThisID is not "3722" then doMenu "Delete Card"
      end if
      do Message box
    end repeat
  end if

  if it is "Duplicates" then
    beep
    answer "This might take a long time?" with "Cancel" or "OK"
    if it is "Cancel" then exit mouseUp
    set the loc of the message box to 20,300
    put "MOVE pointer inside field to Compare, then press" && "COMMAND KEY down."
    put "Delete" into TrapFieldName
    put empty into LastField
  end if

end mouseUp


-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=340 top=23 right=38 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: See Script
----- HyperTalk script -----
on mouseUp
  edit script of card button "Delete"
end mouseUp


-- part contents for background part 8
----- text -----
Card 16 of 20

-- part contents for background part 9
----- text -----
SUPER DELETE
This button has a range of delete options and can be used with the button 'Super Find' do delete flagged information.

The cards in this stack are all protected so you don't accidentally delete them, so go ahead and try the delete options.


-- part contents for card part 2
----- text -----
See Script